﻿Imports HMSLibrary
Imports HMSDataLayer

Public Class PatientFollowupNotesUserControl
    Implements IHMSData

    Public Property ActionMode As HMSLibrary.FormAction Implements HMSLibrary.IHMSData.ActionMode

    Public Sub AddNew() Implements HMSLibrary.IHMSData.AddNew
        ConsultingDocComboBox.SelectedIndex = -1
        VisitStatusComboBox.SelectedIndex = -1
        RoomComboBox.SelectedIndex = -1
        CompalinedComplaintsComboBox.SelectedIndex = -1
        RemarksTextBox.Text = String.Empty

        VisitDateDatePicker.SelectedDate = Date.Now
        VisitDateDatePicker.DisplayDateEnd = Date.Now
        ActionMode = FormAction.ADD
        Dim dataProvider As New MasterDataLayer()
        Dim lst As List(Of Lookups)

        lst = dataProvider.GetLookupList(LookupTypes.VisitStatus)
        VisitStatusComboBox.ItemsSource = lst

        lst = dataProvider.GetDoctorsLookList()
        ConsultingDocComboBox.ItemsSource = lst

        Dim lstRooms As List(Of Rooms)
        lstRooms = dataProvider.GetRoomsList()
        RoomComboBox.ItemsSource = lstRooms
    End Sub

    Public Sub BackView() Implements HMSLibrary.IHMSData.BackView

    End Sub

    Public Function DataValidation() As Boolean Implements HMSLibrary.IHMSData.DataValidation

    End Function

    Public Sub FindData() Implements HMSLibrary.IHMSData.FindData

    End Sub

    Public Property ID As Integer Implements HMSLibrary.IHMSData.ID

    Public Sub LoadData(ByVal ID As Integer) Implements HMSLibrary.IHMSData.LoadData

    End Sub

    Public Function SaveData() As Boolean Implements HMSLibrary.IHMSData.SaveData

    End Function

    Private Sub NextAppointmentTextBlock_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles NextAppointmentTextBlock.MouseLeftButtonDown
        If ID = 0 Then Exit Sub
        Dim Win As New AppointmentWindow(ID)
        Win.FormType = FormsList.NextAppointment
        Win.ShowDialog()
    End Sub

    Private Sub NextContactTextBlock_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles NextContactTextBlock.MouseLeftButtonDown
        If ID = 0 Then Exit Sub
        Dim Win As New AppointmentWindow(ID)
        Win.FormType = FormsList.NextContact
        Win.ShowDialog()
    End Sub

    Private Sub NextRecallTextBlock_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles NextRecallTextBlock.MouseLeftButtonDown
        If ID = 0 Then Exit Sub
        Dim Win As New AppointmentWindow(ID)
        Win.FormType = FormsList.NextRecall
        Win.ShowDialog()
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub
End Class
